10 REM SPEEDSCRIPT DEVICE SWAP
20 FORI=52736TOI+55:READX:POKEI,X:Z=Z+X:NEXT:IFZ-5475THENPRINT"DATA ERROR":STOP
30 PRINT"[147]L[207]"CHR$(34)"SPEEDSCRIPT*"CHR$(34)",8,1"
40 PRINT"POKE2481,197:POKE2854,0:POKE2855,206:RUN";
50 FORI=631TO640:POKEI,13:NEXT:POKE198,10:END
60 DATA44,8,9,201,14,208,46,32,78,10,174,1,206,236,235,18,208,3,174,2,206
70 DATA142,235,18,142,44,19,142,154,20,142,241,22,142,79,23,142,223,24,142
80 DATA227,26,142,91,27,142,161,27,169,0,32,1,30,76,105,10